home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.arc / RESETF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-03-24  |  1.6 KB  |  33 lines
  1. (*----------------------------------------------------------------------*)
  2. (*        Reset_F:  Reposition file to beginning of information         *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Reset_F;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*   Procedure:   Reset_F                                               *)
  10. (*                                                                      *)
  11. (*   Purpose:     Resets file being listed to beginning of information. *)
  12. (*                                                                      *)
  13. (*   Calling sequence:                                                  *)
  14. (*                                                                      *)
  15. (*      Reset_F;                                                        *)
  16. (*                                                                      *)
  17. (*   Calls:  Reset                                                      *)
  18. (*                                                                      *)
  19. (*   Remarks:                                                           *)
  20. (*                                                                      *)
  21. (*      Cur_line and Cur_page are reset to 1 here.                      *)
  22. (*                                                                      *)
  23. (*----------------------------------------------------------------------*)
  24.  
  25. BEGIN  (* Reset_F *)
  26.  
  27.    RESET( F );
  28.  
  29.    Cur_line := 1;
  30.    Cur_page := 1;
  31.  
  32. END    (* Reset_F *);
  33.